home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / BYTEARRA.P < prev    next >
Text File  |  1990-09-13  |  737b  |  30 lines
  1. temp <- <primitive 110 5 >
  2. <primitive 112 temp 1        " size " \
  3.     #( #[ 32 250 1 117 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " printString " \
  7.     #( #[ 48 113 81 32 163 178 225 2 13 33 32 34 177 169 11 \
  8.  17 49 11 17 241 113 243 179 242 33 50 11 17 243 245 \
  9. ] \
  10.     #( '#[ ' ' ' ']'  ) ) >
  11.  
  12. <primitive 112 temp 3        " at:put: " \
  13.     #( #[ 32 33 34 250 3 119 242 245] \
  14.     #(  ) ) >
  15.  
  16. <primitive 112 temp 4        " at: " \
  17.     #( #[ 32 33 250 2 118 243 245] \
  18.     #(  ) ) >
  19.  
  20. <primitive 112 temp 5        " new: " \
  21.     #( #[ 33 250 1 116 243 245] \
  22.     #(  ) ) >
  23.  
  24. <primitive 98 #ByteArray \
  25.     <primitive 97 #ByteArray #ArrayedCollection #\smalltlk\prelude\bytearra.st \
  26.     #(  ) \
  27.     #( #size #printString #at:put: #at: #new:  ) \
  28.     temp 3 6 > >
  29.  
  30.